Lake Powell/Lake Powell.iso/pc/glcfly.dxr/00061.ls

Text File | 1998-04-16 | 1.5 KB | 74 lines

on outline spritenumber
  puppetSprite(18, 1)
  set the castNum of sprite 18 to 115 + spritenumber
  go(the frame)
  abort()
end

on HIdePaths
  repeat with loop = 26 to 35
    set the visible of sprite loop to 0
  end repeat
end

on ShowPaths
  repeat with loop = 26 to 35
    set the visible of sprite loop to 1
  end repeat
end

on ShowOptions
  puppetSprite(18, 1)
  repeat with loop = 1 to 4
    set the visible of sprite (2 + loop) to 0
    set the memberNum of sprite 18 to 115 + loop
    updateStage()
    set the visible of sprite (2 + loop) to 1
    set testMe to the ticks
    repeat while the ticks < (testMe + 45)
      nothing()
    end repeat
  end repeat
  puppetSprite(18, 0)
end

on figureTiming
  global gMovieDuration, gPathChunk, gMovTimeChunk
  set gMovieDuration to the duration of member the memberNum of sprite 10
  set gPathChunk to 1
  set gMovTimeChunk to gMovieDuration / 10
end

on transitionToandFrom
  global goDest, gLastMovie
  case gLastMovie of
    "Mov1":
      set zoomto to 26
    "Mov2":
      set zoomto to 27
    "Mov3":
      set zoomto to 28
    "Mov4":
      set zoomto to 29
    "Mov5":
      set zoomto to 30
    "Mov6":
      set zoomto to 31
    "Mov7":
      set zoomto to 32
  end case
  zoomBox(10, zoomto, 4)
  go("intro")
  puppetSprite(18, 1)
  set the castNum of sprite 18 to 116 + char 4 of gLastMovie
  updateStage()
  set the castNum of sprite 18 to 116 + char 4 of goDest
end

on stopMovie
  repeat with loop = 205 to 208
    set the controller of member loop to 0
  end repeat
  ShowPaths()
end